home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / HAM_RAD / LOGGING / 3090.ZIP / USQSLMAN.PRG < prev   
Text File  |  1987-03-10  |  774b  |  37 lines
  1. * USQSLMAN.PRG
  2. * CALLED BY HAM.CMD
  3. * REV 10/01/83
  4. * REV 03/08/87 FOR USE ON PC
  5. SET TALK OFF
  6. USE USQSLMAN INDEX USQSLMAN
  7. SET INDEX TO USQSLMAN
  8. DO WHILE .T.
  9. CLEAR
  10. @ 0,0 SAY 'ENTER [END] TO EXIT'
  11. @ 0,30 SAY '**** US QSL MANAGERS LIST ****'
  12. ACCEPT 'CALL: ' TO MCALL
  13. STORE UPPER(MCALL) TO MCALL
  14.    IF MCALL='END'
  15.       SET TALK ON
  16.       CLEAR
  17.       RETURN
  18.    ENDIF
  19. FIND &MCALL
  20.    IF (EOF() .OR. BOF())
  21.       @ 12,40 SAY 'CALL NOT FOUND'
  22.       WAIT
  23.       LOOP
  24.       CLEAR
  25.    ENDIF
  26.       DO WHILE CALL = MCALL
  27.       @ 5,0 SAY 'CALL'
  28.       @ 5,15 SAY 'QSL MANAGER'
  29.       DISPLAY OFF
  30.       @ 8,0 SAY '           '
  31.       WAIT
  32.       SKIP
  33.       ENDDO
  34. RELEASE MCALL
  35. CLEAR
  36. ENDDO
  37.